home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmfg.dir / Internal_39_wakieWakie.ls < prev    next >
Encoding:
Text File  |  2001-09-03  |  1023 b   |  38 lines
  1. property pauseForSound
  2. global gmObject, autoMoveObject, sndObject
  3.  
  4. on beginSprite me
  5.   pauseForSound = 0
  6. end
  7.  
  8. on exitFrame me
  9.   if sprite(me.spriteNum).playing = 0 then
  10.     if (pauseForSound = 1) and (soundBusy(2) = 0) then
  11.       sprite(me.spriteNum).play()
  12.       pauseForSound = 0
  13.     else
  14.       if pauseForSound = 0 then
  15.         v = random(4)
  16.         go("Wake" & string(v))
  17.       end if
  18.     end if
  19.   else
  20.     if sprite(me.spriteNum).frame = 11 then
  21.       if gmObject.soundThing <> 0 then
  22.         sprite(me.spriteNum).frame = 12
  23.         sprite(me.spriteNum).stop()
  24.         sound(2).play(member(gmObject.soundThing, 1))
  25.         pauseForSound = 1
  26.       end if
  27.     else
  28.       if sprite(me.spriteNum).frame = 27 then
  29.         sprite(me.spriteNum).frame = 28
  30.         sprite(me.spriteNum).stop()
  31.         sprite(gmObject.lastThingEaten).loc = gmObject.mouthLoc + point(0, 20)
  32.         autoMove(autoMoveObject, sprite(gmObject.lastThingEaten), point(408, 7))
  33.         sprite(me.spriteNum).play()
  34.       end if
  35.     end if
  36.   end if
  37. end
  38.